home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX Base Documentation 1998 November
/
IRIX 6.5.2 Base Documentation November 1998.img
/
usr
/
share
/
catman
/
p_man
/
cat3
/
f90
/
asnctl.z
/
asnctl
Wrap
Text File
|
1998-10-30
|
5KB
|
85 lines
ASNCTL(3F) Last changed: 1-30-98
NNAAMMEE
AASSNNCCTTLL - Controls function of AASSSSIIGGNN, AASSNNFFIILLEE, AASSNNUUNNIITT, and AASSNNRRMM
routines
SSYYNNOOPPSSIISS
CCAALLLL AASSNNCCTTLL((_o_p_t_i_o_n,, _v_a_l_u_e,, _i_e_r))
IIMMPPLLEEMMEENNTTAATTIIOONN
UNICOS, UNICOS/mk, and IRIX systems
DDEESSCCRRIIPPTTIIOONN
This routine is supported on IRIX systems for programs compiled with
the MIPSpro 7 Fortran 90 compiler or compiled with the --ccrraayylliibbss
option to the MIPSpro 7.2 F77 compiler.
The ''LLOOCCAALL'' and ''NNEEWWLLOOCCAALL'' modes are useful for any utility written in
Fortran when you want to use AASSSSIIGGNN(3F) but do not want to access the
aassssiiggnn environment file set up by the user.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX, all arguments must be of default kind
unless documented otherwise. On UNICOS and UNICOS/mk, default kind is
KKIINNDD==88 for integer, real, complex, and logical arguments; on IRIX, the
default kind is KKIINNDD==44.
The following is a list of valid arguments for this routine.
_o_p_t_i_o_n A Fortran character variable containing either of the
following values:
''LLOOCCAALL'' Causes AASSNNCCTTLL to establish a local aassssiiggnn
environment. The old aassssiiggnn environment is
copied into the newly created local aassssiiggnn
environment. Subsequent calls to AASSSSIIGGNN,
AASSNNUUNNIITT, AASSNNFFIILLEE, and AASSNNRRMM (see AASSSSIIGGNN(3F))
affect only the newly created local aassssiiggnn
environment. Any future Fortran OOPPEENN requests
will also read from the local aassssiiggnn
environment initiated by this call to AASSNNCCTTLL.
The user must set _v_a_l_u_e to 1 when calling
AASSNNCCTTLL with _o_p_t_i_o_n=''LLOOCCAALL''.
''NNEEWWLLOOCCAALL'' Causes AASSNNCCTTLL to establish an empty local
aassssiiggnn environment. Subsequent calls to
AASSSSIIGGNN, AASSNNUUNNIITT, AASSNNFFIILLEE, and AASSNNRRMM (see
AASSSSIIGGNN(3F)) affect the newly created local
aassssiiggnn environment. Any future Fortran OOPPEENN
requests will also read from the local aassssiiggnn
environment initiated by this call to AASSNNCCTTLL.
The user must set _v_a_l_u_e to 1 when calling
AASSNNCCTTLL with _o_p_t_i_o_n=''NNEEWWLLOOCCAALL''.
''RREESSTTOORREE'' Restores the aassssiiggnn environment that was active
before the preceding ''LLOOCCAALL'' or ''NNEEWWLLOOCCAALL''
request. Sets _v_a_l_u_e to 1 when calling AASSNNCCTTLL
with _o_p_t_i_o_n=''RREESSTTOORREE''..
_v_a_l_u_e Integer variable, constant, or array element containing the
option value.
_i_e_r Integer variable or array element that is assigned the error
status on return. Zero (0) is usually returned, indicating
no errors were encountered; otherwise, a positive error
status is returned.
EEXXAAMMPPLLEESS
The writer of the following Fortran program wants to disregard any
aassssiiggnn information provided by the user. However, the program
requires sequential unformatted I/O on unit 11 with an unblocked file
structure. This is accomplished by the following:
CALL ASNCTL('NEWLOCAL',1,ier) ! start local assign environment
CALL ASNUNIT(11,'-s unblocked',ier) ! assign the "unblocked" file structure
OPEN(11,form='unformatted') ! open unit 11
SSEEEE AALLSSOO
AASSSSIIGGNN(3F)
_A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication
SR-2165, for the printed version of this man page.